6 PRINT"[147]"
10 IFPEEK(788)=49 AND PEEK(789)=234 ANDA=0 THEN A=1:LOAD"RASTER/IRQ 3.0.O",8,1
15 POKE53280,0:POKE53281,0
16 POKE53274,0
20 GOSUB 1000
21 POKE253,5
22 POKE254,146:V(2)=BO:V(3)=TE:V(1)=BK
23 POKE251,BK:POKE252,BO:POKE646,TE
30 SYS32768:PRINT"[147]":GOSUB40:GOSUB48:GOSUB50:GOSUB64:GOTO70
40 POKE646,V(3):PRINT"             [195][207][204][207][210] [211][197][204][197][195][212]
41 [153]"             TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
42 PRINT"  [212]HIS PORTION OF [195][213][211][212][207][205][201][218][201][206][199] [204][207][193][196][211][212][193][210]
43 [153]" IS OPTIONAL.  (null)OU MAY SELECT THE COLOR
44 PRINT" FOR THE BORDER, SCREEN AND THE TEXT
45 [153]" TO FIT YOUR TASTE.  ASCEEL FREE TO
46 PRINT" CHANGE THIS AS OFTEN AS YOU WISH OR
47 [153]"CLOSENEED TO.":[142]
48 [153]""
49 [151]646,V(2):[153]"                                        WAIT";:[142]
50 [153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
51 [153]"LIST(null) LIST(null)(null)   RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)   LIST(null)";
52 [153]"LIST(null)THENTO  OPEN CLR   SYS FOR VERIFY DEF POKE PRINT# PRINT CONT LIST WAIT LIST(null)(null)  PRINT# TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(   LIST(null)";
53 [153]"LIST(null) LIST(null)(null) LEN(null)(null)(null) KEYS SELECT LIST(null)";
54 [153]"LIST(null) LIST(null)(null)                  LIST(null)";
55 [153]"LIST(null)THENTO  OPEN CLR   SYS FOR VERIFY DEF POKE PRINT# PRINT CONT LIST WAIT LIST(null)(null) (null)(null)/STR$(null)(null)(null) :     CLOSE  LIST(null)";
56 [153]"LIST(null)LIST(null)(null)  (null)OVES INDEX BOX LIST(null)";
57 [153]"LIST(null)LIST(null)(null)                  LIST(null)";
58 [153]"LIST(null)THENTO  OPEN CLR   SYS FOR VERIFY DEF POKE PRINT# PRINT CONT LIST WAIT LIST(null)(null) (null)RIGHT$CHR$LEFT$(null)/(null)VALASC(null) :     LIST(null)";
59 [153]"LIST(null)LIST(null)(null)  (null)ELECTS COLOR   LIST(null)";
60 [153]"LIST(null)LIST(null)(null)  FOR THAT BOX    LIST(null)";
61 [153]"LIST(null)                  LIST(null)(null)                  LIST(null)";
62 [153]"LIST/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
63 [151]2023,125:[151]56295,15:P$[178]"":[142]
64 A$(1)[178]"  (null)LEN(null)VALVAL(null) LEN(null)(null)(null)(null)  ":P(1)[178]1626:R(1)[178]251
65 A$(2)[178]"  PEEK(null)(null)STR$VAL(null) LEN(null)(null)(null)(null)  ":P(2)[178]1746:R(2)[178]252
66 A$(3)[178]"   (null)VAL(null)(null) LEN(null)(null)(null)(null)   ":P(3)[178]1866:R(3)[178]646
67 A$(4)[178]"    (null)VAL(null)(null) (null)VAL(null)(null)   ":A$(5)[178]" (null)VAL(null)(null)? ((null) (null)R (null)) "
68 [129]X[178]1[164]4:[153]P$"PRINT#"A$(X):[130]:P[178]1:A[178]0
69 [129]X[178]1[164]3:[151]P(X)[170]V(X),30:[151]P(X)[170]V(X)[170]54272,1:[130]:[142]
70 [153]P$"PRINT#"A$(P):P[178]P[170]A:[153]P$"CONT"A$(P)
71 [139]P[178]4 [167] 150
75 [161]A$:[139]A$[178]""[167]75
80 [139]A$[178]""[175]P[179]4 [167] A[178]1:[137]70
81 [139]A$[178]"ON"[175]P[177]1 [167]A[178][171]1:[137]70
82 [139]A$[178]""[175]V(P)[179]15 [167] A[178]1:[137]90
83 [139]A$[178]"CMD"[175]V(P)[177]0  [167] A[178][171]1:[137]90
89 [137]75
90 [151]P(P)[170]V(P),32:V(P)[178]V(P)[170]A
92 [151]P(P)[170]V(P),30:[151]P(P)[170]V(P)[170]54272,1
93 [151]R(P),V(P)
94 [139]P[178]3 [167] [141]40
95 [139]P[178]2 [167] [141]48
96 [151] R(P),V(P)
97 [139] (V(1)[178]V(3)) [167] 100
99 [137]75
100 [139] V(P)[170]A[177]15 [167] A[178][171]1
101 [139] V(P)[170]A[179]0 [167] A[178]1
115 [137] 90
150 [153]P$""A$(5);
160 [161]A$:[139]A$[178]""[167]160
161 [139]A$[178]"(null)"[176]A$[178]"Y"[176]A$[178][199](13)[167]200
162 [139]A$[178]"N"[176]A$[178]"(null)"[176]A$[178]"ON"[167]170
165 [137]160
170 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                ON":
171 [139]A$[178]"ON"[167]A[178][171]1:[137]70
172 [137]75
200 TB$[178]"LIST":[153]P$"PRINT#"A$(P)
201 [153]"LIST"TB$"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
202 [153]TB$"LIST(null)DEF  (null)AKE SELECTION  LIST(null)";
203 [153]TB$"LIST(null)PRINT  & PRESS (null)VAL(null)(null)(null)(null)  LIST(null)";
204 [153]TB$"LIST(null)PRINT#  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(  LIST(null)";
205 [129]X[178]1[164]8:[153]TB$"LIST(null)                  LIST(null)";:[130]
220 [153]TB$"LIST/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
225 [151]2023,125:[151]56295,15
227 P1$[178]""[170]TB$
230 S$(1)[178]"   (null)ATN(null)VAL (null)VAL(null)(null)(null)   "
231 S$(2)[178]"  (null)VAL(null)VAL(null) (null)VAL(null)(null)(null)   "
233 S$(3)[178]"   VALSTR$RIGHT$(null) (null)VAL(null)(null)(null)   "
234 S$(4)[178]"  (null)(null)RIGHT$(null) (null)(null)CLOSE(null)VAL(null)(null)  "
250 [129]X[178]1[164]4:[153]P1$"PRINT#"S$(X):[130]
260 P1[178]1:A[178]0
265 [153]P1$"PRINT#"S$(P1):P1[178]P1[170]A:[153]P1$"CONT"S$(P1)
270 [161]A$:[139]A$[178]""[167]270
271 [139]A$[178]""[175]P1[179]4 [167]A[178]1:[137]265
273 [139]A$[178]"ON"[175]P1[177]1 [167]A[178][171]1:[137]265
275 [139]A$[178][199](13) [167] [145]P1 [137] 310,320,325,340
279 [137] 270
310 [129]Y[178]1[164]3
311 [141]500:[153]P$"  (null)LEASE INSERT SIDE"Y"OF SYS(null)(null)ATNSTR$(null)(null)ATN(null)"
312 [153]"    IN THE DRIVE AND PRESS ((null)VAL(null)(null)(null)(null)).":[151]2023,32
313 [161]A$:[139]A$[179][177][199](13) [167] 313
314 [158]32768:[153]"LOAD"
315 [141]5000
317 [139]SI[179][177]Y [167][158]32768:[153]"LOAD":[141]40:[141]48:[141]50:[141]600:[137]311
318 [141]6000:[158]32768:[141]40:[141]48:[130]
319 [141]50:[129]X[178]1[164]4:[151]P(X)[170]V(X),30:[153]P$"PRINT#"A$(X):[130]:[137] 200
320 [151]251,BK:[151]252,BO:[151]646,TE
321 [129]X[178]1[164]4:[151]P(X)[170]V(X),32:[130]:V(3)[178]TE:[141]40
322 V(1)[178]BK:V(2)[178]BO:V(3)[178]TE:[141]48
323 [129]X[178]1[164]4:[151]P(X)[170]V(X),30:[130]
325 A[178][171]1:[141]50:[137]70
340 [139]V(1)[178]BK[175]V(2)[178]BO[175]V(3)[178]TE [167] 400
341 [141] 500
342 [153]P$"    ATNRE YOU SURE YOU WANT TO QUIT       ";
343 [153]"  WITHOUT SAVING YOUR MODIFICATIONS ?";
344 [153]"       (null)LEASE SELECT ((null))ES (null)R ((null))O.":[151]2023,32
350 [161]A$:[139]A$[178]""[167]350
351 [139]A$[178]"N"[176]A$[178]"(null)"[167]360
352 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 410
355 [137] 350
360 [141]500:[141]50:[129]X[178]1[164]4:[151]P(X)[170]V(X),30:[130]:[153]P$"PRINT#"A$(P):
361 [129]X[178]1[164]4:[153]P$"PRINT#"A$(X):[130]:[137]200
400 [141]500:[153]P$""
401 [153]"    ATNRE YOU SURE YOU WISH TO QUIT?"
402 [153]"     (null)LEASE ENTER ((null))ES OR ((null))O.":[151]2023,32
403 [161]A$:[139]A$[178]""[167]403
404 [139]A$[178]"N"[176]A$[178]"(null)"[167]360
405 [139]A$[179][177]"Y"[167]403
410 [141]500:[153]P$"   (null)LEASE PLACE SIDE 3 OF SYS(null)(null)ATNSTR$(null)(null)ATN(null)"
411 [153]"   INTO YOUR DRIVE AND PRESS (null)VAL(null)(null)(null)(null)."
412 [161]A$:[139]A$[179][177][199](13)[167]412
413 [158]32768:[153]"LOAD":[141] 5000:[158]32768:[141]40:[141]48
415 [139] SI[179][177]3 [167] 410
420 [158]32768:[153]"LOAD"
421 [151]53280,6:[151]53281,6
430 [153]"LOAD(null)LEASE (null)AIT (null)HILE (null)OADING..."
431 [151]646,[194](53281)
435 [153]"LOAD"[199](34)"CUSTOM LS BOOT"[199](34)",8":[153]"RUN"
440 [151]631,13:[151]632,13:[151]198,2:[128]
500 [153]P$"CMDCMDON";:[129]X[178]1[164]12:[153]"                                        ";
501 [130]:[151]2023,32:[153]"                                       ":[142]
600 [141]500:[153]P$"   (null)RIGHT$STR$VAL (null)(null)(null) ASC(null)(null)(null)STR$ - (null)(null)VALATN(null)VAL (null)(null)(null) ATNCHR$ATNRIGHT$(null)   "
601 [151]2023,32:[129]D[178]1[164]1500:[130]:[142]
999 [128]
1000 [143]   -- GET CURRENT SETUP --
1010 [159]15,8,15,"I0"
1011 [159]3,8,4,"SETUP"
1015 [132]3,D$(1),D$(2),D$(3),D$(5),D$(6),D$(7)
1020 BO[178][197](D$(1))
1023 BK[178][197](D$(2))
1025 TE[178][197](D$(3))
1027 [160]3:[160]15
1029 [142]
5000 [143] -- CHECK THAT SIDE BOYS! ---
5001 [159]15,8,15,"I0":[160]15
5010 [159]2,8,2,"$":[129]I[178]0[164]156:[161]#2,A$:[130]
5011 [161]#2,A$:SI[178][197](A$):[160]2
5020 [142]
6000 [143] --- WRITE 'EM OUT BOYS! ---
6010 [159]15,8,15,"I0"
6011 [159]3,8,4,"SETUP":CR$[178][199](13)
6020 [152]15,"P
"[199](0)"
";
6021 [152]3,V(2)CR$V(1)CR$V(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
6030 [160]3:[160]15:[142]
9000 [143] -  COLOR SELECT  V2.0   -
9010 [143]        (C) 1987
9011 [143] 8/11/87   ---  LOADSTAR